home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.08 Aug 86.sit / 02.08 Aug 86 / basic / benchmark programs / Sieve < prev   
Encoding:
Text File  |  1986-06-18  |  446 b   |  22 lines  |  [TEXT/MSBB]
  1. DEFINT a-s
  2. 10 DIM FLAGS(8191)
  3. 20 PRINT "10 iterations"
  4. 22 T=TIMER
  5. 30 FOR M = 1 TO 10
  6. 40 COUNT = 0
  7. 50 FOR i = 1 TO 8191
  8. 60 FLAGS(i) = 1
  9. 70 NEXT i
  10. 80 FOR i = 1 TO 8191
  11. 90 IF FLAGS(i) = 0 GOTO 170
  12. 100 PRIME = i + i + 3
  13. 105 REM                PRINT PRIME
  14. 110 K = i + PRIME
  15. 120 IF K <= 8190 THEN FLAGS(K) = 0:K = K + PRIME:GOTO 120            
  16. 160 COUNT = COUNT + 1
  17. 170 NEXT i
  18. 180 NEXT M
  19. 181 T2=TIMER
  20. 190 PRINT COUNT;"primes";T2-T;"Sec."
  21. 200 FOR i=1 TO 10:BEEP:NEXT i:END
  22.